---
title: "LOS NÚMEROS DEL CAMINO DE ALEXIS POR EUROPA"
output: 
  flexdashboard::flex_dashboard:
    theme: cerulean
    orientation: columns
    vertical_layout: fill
    source_code: embed
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(warning = FALSE, message = FALSE)
library(flexdashboard)
library(rmarkdown)
library(ggplot2)
library(dplyr)
library(knitr)
library(RColorBrewer)
library(xaringan)
library(plotly)
setwd("C:/Users/hdeus/OneDrive/Escritorio/Entrega 2")
Alexis <- readxl::read_xlsx("Alexis Sanchez.xlsx")

```

```{=html}
<style>
.tipo1{
  fill: #AC75D6; 
  stroke: #FFFFFF; 
  stroke-width: 10;
}

.tipo2:hover{
  transition: 1s fill; 
  fill: #000000;
}

.tipo3:hover{
  fill: #EAA81C; 
  transition: 1s fill; 
}
</style>
```
# UNA INTRODUCCIÓN A LA CARRERA DE ALEXIS

## Column {.tabset}

### Sudamérica: La etapa previa

Alexis Sanchez es un jugador chileno que inició su carrera profesional en el año 2005 a la edad de 16 años, debutando por primera vez en primera división con el club que lo formó; Cobreloa.

Su rápida adaptación y deslumbrante talento, hizo que el Udinese de Italia se fijara en el, comprándolo a inicios del año 2006; como una futura promesa que en un tiempo rendiría frutos. Luego, a mediados del 2006 el Udinese lo cede a préstamo a Colocolo, con la misión de que se consolide en un club grande de su país y juegue copas internacionales.

En Colocolo (siendo muy pequeño aún) logró consolidarse como un titular indiscutido en un equipo plagado de figuras y jugadores con experiencia, obteniendo dos títulos de la primera división chilena y un subcampeonato en la copa Sudamericana.

Sus buenas actuaciones con Colocolo en el plano local e internacional, llamaron la atención de un grande de Argentina como lo es River Plate; por lo que el Udinese de Italia lo cede nuevamente a préstamo a dicho club a mediados del 2007. En river logró cumplir buenas presentaciones, pese a la intermitencia que le generaron algunas lesiones. Luego de alternar entre titularidad y suplencia debido a algunas molestias físicas, finalmente logró obtener 1 título de priemra división con el cuadro argentino.

Finalmente y a medidados del año 2008 (inicio de la temporada europea) el Udinese decide porfín que el jugador ha madurado llamándolo a incorporarse a sus filas; marcando lo que seria la llegada del "Niño Maravilla" a Europa, dando un salto al alto rendimiento del jugador que se mantiene hasta el día de hoy.

## Column

### El PRIME de Alexis Sanchez

```{r}
knitr::include_graphics("C:/Users/hdeus/OneDrive/Escritorio/Entrega 2/Aalexis.jpg")
```

### Estadísticas generales en competencias europeas

```{r}
cuadro_estadistico <- Alexis %>%
  summarize(Total_Competencias = sum(Competencias),
            Total_Partidos = sum(`Partidos jugados`),
            Partidos_Titular = sum(Titular),
            Minutos_Jugados = sum(`Minutos jugados`))


knitr::kable(cuadro_estadistico, format = "markdown")
```


SU EVOLUCIÓN A LO LARGO DE LAS TEMPORADAS: PRESENCIA EN EL CAMPO DE JUEGO. {.storyboard}
=============================================================================

### Partidos jugados por temporada 

```{r}
# Calculate the top 5 seasons with the most games played
top_seasons <- Alexis[order(Alexis$`Partidos jugados`, decreasing = TRUE), ][1:5, ]

# Create a new variable indicating whether each season is in the top 5
Alexis$top_season <- ifelse(Alexis$Temporada %in% top_seasons$Temporada, "Top 5", "Other")

# Set the color palette with a brighter color for the top seasons
color_palette <- c("Other" = "#f7fcb9", "Top 5" = "#31a354")

# Create the plot
ggplot(data = Alexis, aes(x = Temporada, y = `Partidos jugados`, fill = top_season)) +
  geom_bar(stat = "identity", width = 0.5) +
  scale_fill_manual(values = color_palette) +
  labs(title = "Partidos jugados por temporada",
       x = "Temporada",
       y = "Partidos jugados") +
  coord_flip()+
  theme_minimal()
```

### Tabla top temporadas en partidos jugados

```{r}
# Ordenar el conjunto de datos Alexis por la variable "Partidos jugados" en orden descendente
Alexis_sorted <- Alexis %>% arrange(desc(`Partidos jugados`))

# Crear una columna adicional para indicar las 5 temporadas principales
Alexis_sorted <- Alexis_sorted %>% mutate(Destacada = if_else(row_number() <= 5, "*", ""))

# Crear la tabla con las columnas de Temporada, Equipo, Partidos jugados y Destacada
tabla <- Alexis_sorted %>% select(Temporada, Equipo, `Partidos jugados`, Destacada)

# Imprimir la tabla utilizando la función kable
knitr::kable(tabla, format = "markdown")
```




Como se puede apreciar en la gráfica, sin duda alguna el momento en donde Alexis tuvo una mayor cantidad de presencias en el campo de juego fue en su estadía en Arsenal. Esto indica su excelente forma física en dichos momentos, especialmente jugando en Inglaterra en donde los equipos profesionales disputan muchas competencias en simultáneo.


### Partidos jugados versus partidos que entró como titular


```{r}
ggplot(data = Alexis, aes(x = Temporada)) +
  geom_bar(aes(y = `Partidos jugados`, fill = "Partidos jugados"), stat = "identity", width = 0.5) +
  geom_bar(aes(y = Titular, fill = "Titular"), stat = "identity", width = 0.5) +
  labs(title = "Comparativa: Partidos jugados vs. Partidos como titular",
       x = "Temporada",
       y = "Cantidad de partidos") +
  scale_fill_manual(values = c("Partidos jugados" = "#f7fcb9", "Titular" = "#31a354")) +
  coord_flip() + 
  theme_minimal()
```


### Tabla top temporadas según cantidad de titularidades

```{r}
# Ordenar el dataframe 'Alexis' por la columna 'Titular' en orden descendente
Alexis_sorted <- Alexis %>% arrange(desc(Titular))

# Crear una columna adicional para indicar las 5 primeras temporadas principales como titular
Alexis_sorted <- Alexis_sorted %>% mutate(Destacada = if_else(row_number() <= 5, "*", ""))

# Crear la tabla con las columnas de Temporada, Equipo, Titular y Destacada
tabla <- Alexis_sorted %>% select(Temporada, Equipo, Titular, Destacada)

# Mostrar la tabla en formato Markdown
knitr::kable(tabla, format = "markdown")
```

Otro indicador importante que nos aporta información sobre su forma física y además de su rendimiento, es la cantidad de partidos en que ingresó a la cancha como titular.
Las 3 temporadas en donde acumula mas partidos iniciados desde el arranque es justamente en el Arsenal de Inglaterra. Nuevamente esto refuerza la hipótesis de que a nivel de rendimiento su paso por el Arsenal marcó un peak en su carrera futbolística; o su "prime" como se suele llamar en jerga futbolística.
Si bien esto habla bien de la forma física del jugador que haciendo frente en diversas competencias tenia en dicho momento la capacidad de jugar mas de un partido a la semana; también habla bien de su calidad en el juego; dado que en casi la totalidad de los partidos era pensado como un jugador desde el arranque. Su paso por el Arsenal se condice con su mejor momento también a nivel de selección; ya que coincide con los años en que Chile obtiene dos Copas América.
Por otra parte, su última temporada en Inter de Milan (Italia) y Manchester United (inglaterra), marcan lo que fueron sus peores temporadas, ya que arrancó en muy pocos partidos como titular; lo que significa que no era bien considerado por el director técnico de turno en dichos equipos.



SU EVOLUCIÓN A LO LARGO DE LAS TEPORADAS: ESTADÍSTICAS DE RENDIMIENTO. {.storyboard}
=============================================================================


### Goles marcados por temporada:
```{r}
top_seasons <- head(Alexis_sorted$Temporada, 5)

# Crear el gráfico de barras con la cantidad de goles por temporada
ggplot(data = Alexis, aes(x = Temporada, y = Goles, fill = Temporada %in% top_seasons)) +
  geom_bar(stat = "identity", color = "black") +
  scale_fill_manual(values = c("FALSE" = "#f7fcb9", "TRUE" = "#31a354"),
                    labels = c("FALSE" = "Other", "TRUE" = "Top 5")) +
  labs(title = "Cantidad de goles de Alexis por temporada",
       x = "Temporada",
       y = "Goles",
       fill = "Temporadas") +
  coord_flip() +
  theme_minimal()
```


### Top cinco temporadas de Alexis segun cantidad de goles:

```{r}
top_seasons <- Alexis_sorted$Temporada[1:5]
Alexis_sorted <- Alexis_sorted %>%
  mutate(Destacada = ifelse(Temporada %in% top_seasons, "*", ""))

tabla <- Alexis_sorted %>% select(Temporada, Equipo, Goles, Destacada)
knitr::kable(tabla, format = "markdown")
```


Alexis Sanchez fue evolucionando y adquiriendo cada vez mas elementos a su juego. El atacante que en sus primeros años en el Udinese se desempeñaba como un extremo que jugaba por banda, poco a poco fue ganando confianza para ubicarse en el centro del campo y cada vez mas pisando en mayor cantidad y calidad el área rival.
Esto queda plasmado en la gráfica, en donde es posible ver como las barras se hacen cada vez mas largas a medida que se llega a las temporadas en donde se desempeñó en el arsenal.
SI en el Udinese era un extremo neto, en el Barcelona Guardiola lo obligó a trazar diagonales empezando en la banda y terminando en el centro del área, aumentando sus posibilidades de marcar goles.
Finalmente el Alexis que llegaba al Arsenal lo hacia en un estado mayor de madurez, con mas recursos y movilidad en el área, lo que le permitió ser el goleador de su equipo e incluso luego de la temporada 2016 - 2017 (que ha sido la mas goleadora de toda su carrera), ser nominado el mejor jugador de la Premier League (liga inglesa).


### Asistencias o pases de gol por temporada:
```{r}
Alexis_sorted <- Alexis %>% arrange(desc(Asistencias))

# Obtener las 5 temporadas con más asistencias
top_seasons <- head(Alexis_sorted$Temporada, 5)

# Crear el gráfico de barras con la cantidad de asistencias por temporada
ggplot(data = Alexis, aes(x = Temporada, y = Asistencias, fill = Temporada %in% top_seasons)) +
  geom_bar(stat = "identity", color = "black") +
  scale_fill_manual(values = c("FALSE" = "#f7fcb9", "TRUE" = "#31a354"),
                    labels = c("FALSE" = "Other", "TRUE" = "Top 5")) +
  labs(title = "Cantidad de asistencias de Alexis por temporada",
       x = "Temporada",
       y = "Asistencias",
       fill = "Temporadas") +
  coord_flip() +
  theme_minimal()
```



### Top cinco temporadas de Alexis segun cantidad de asistencias:

```{r}
Alexis_sorted <- Alexis %>% arrange(desc(Asistencias))
top_seasons <- Alexis_sorted$Temporada[1:5]
Alexis_sorted <- Alexis_sorted %>%
  mutate(Destacada = ifelse(Temporada %in% top_seasons, "*", ""))

tabla <- Alexis_sorted %>% select(Temporada, Equipo, Asistencias, Destacada)
knitr::kable(tabla, format = "markdown")
```

Como si fuera poco, las gráficas de Alexis muestran toda su versatilidad en el campo de juego a lo largo de los años. Mas allá de ser un delantero goleador, es también muy inteligente a la hora de asistir a sus compañeros. Esta cualidad resalta mayormente en su paso por el Arsenal, en donde se destacó por ser uno de los mejores asistidores de la liga.


### Asistencias mas goles por temporadas

```{r}
Alexis_sorted <- Alexis %>% arrange(desc(`Goles + asistencias`))

# Obtener las 5 temporadas con más goles + asistencias
top_seasons <- head(Alexis_sorted$Temporada, 5)

# Crear el gráfico de barras con la cantidad de goles + asistencias por temporada
ggplot(data = Alexis, aes(x = Temporada, y = `Goles + asistencias`, fill = Temporada %in% top_seasons)) +
  geom_bar(stat = "identity", color = "black") +
  scale_fill_manual(values = c("FALSE" = "#f7fcb9", "TRUE" = "#31a354"),
                    labels = c("FALSE" = "Other", "TRUE" = "Top 5")) +
  labs(title = "Cantidad de goles + asistencias de Alexis por temporada",
       x = "Temporada",
       y = "Goles + Asistencias",
       fill = "Temporadas") +
  coord_flip() +
  theme_minimal()
```


### Top cinco temporadas según goles + asistencias:

```{r}
Alexis_sorted <- Alexis %>% arrange(desc(`Goles + asistencias`))
top_seasons <- Alexis_sorted$Temporada[1:5]
Alexis_sorted <- Alexis_sorted %>%
  mutate(Destacada = ifelse(Temporada %in% top_seasons, "*", ""))

tabla <- Alexis_sorted %>% select(Temporada, Equipo, `Goles + asistencias`, Destacada)
knitr::kable(tabla, format = "markdown")
```


Los goles + las asistencias, nos permiten ver el total de goles en los que Alexis estuvo directamente involucrado. En su mejor temporada en el Arsenal, Alexis tuvo directa relación con 45 goles, lo que lo transformó en el jugador mas influyente en ataque ese año. 
Sus otras temporadas en el Arsenal también fueron brillantes en cuanto a números, sumando tambien su última temporada en Barcelona (2013 - 2014) en donde logró estar directamente involucrado en 31 goles.



EL RENACER EN MARSELLA: UN 9 DE ÁREA. {.storyboard}
=============================================================================

### El presente de Alexis

Actualmente y luego de haber pasado un bajón en su carrera desde su paso por el Manchester United y el Inter, Alexis vive días felices en su actual equipo el Olympique de Marsella. Es el actual goleador entre sus compañeros y su promedio de gol por partido de acuerdo con las estadísticas se esta acercando cada vez mas a sus mejores temporadas en Arsenal.

### Promedio de goles por partidos jugados en cada club

```{r}
# Agrupar los datos por el nombre del club y calcular la suma de goles y la suma de partidos jugados
goles_por_partido <- Alexis %>%
  group_by(Equipo) %>%
  summarise(Goles_totales = sum(Goles), Partidos_jugados_totales = sum(`Partidos jugados`))

# Calcular la cantidad de goles por partido jugado acumulado por clubes
goles_por_partido$Goles_por_Partido_Acumulado <- round(goles_por_partido$Goles_totales / goles_por_partido$Partidos_jugados_totales, 2)

# Ordenar los resultados de mayor a menor según la cantidad acumulada de goles por partido jugado
goles_por_partido <- goles_por_partido %>%
  arrange(desc(Goles_por_Partido_Acumulado))

# Crear el gráfico de barras con barras más delgadas
ggplot(data = goles_por_partido, aes(x = reorder(Equipo, Goles_por_Partido_Acumulado), y = Goles_por_Partido_Acumulado)) +
  geom_bar(stat = "identity", fill = "#238443", alpha = 0.7, width = 0.5) +
  labs(x = "Equipo", y = "Goles por Partido Acumulado") +
  ggtitle("Cantidad de Goles por Partido Acumulado por Clubes") +
  theme_bw() +
  theme(plot.title = element_text(hjust = 0.5)) +
  coord_flip() +
  theme_minimal()

```

### El renacer

Dicho esto, este renacer va de la mano de una modificación a su posición en la que solía jugar a lo largo de toda su carrera. Salvo en el Marsella, en todos los clubes en donde Alexis jugó, incluyendo la selección chilena, el jugador gustaba de ocupar una posición mas retrasada en referencia con el delantero centro de su equipo. En otras palabras, es un jugador que le atraía jugar como media punta o enlace, saliendo permanentemente del área y bajando a buscar balones al centro del campo para estar en contacto con este.
Su actual entrenador, Igor Tudor, le ha exigido al jugador que deje de bajar hacia el centro del campo a buscar balones, y se preocupe estrictamente de estar cerca del área para que sea el quien finalice la jugada.

Por ejemplo, una buena métrica para constatar esto, es la cantidad de pases dados por partido; la cual ha disminuido considerablemente si se compara su última temporada en el Arsenal con la actual en Marsella (en donde quedan tan solo 3 partidoss para que termine)



### Cantidad de pases por partido jugado (Comparativa entre Arsenal - Marsella)

```{r}
# Filtrar los datos para el Arsenal y el Marsella
datos_filtrados <- Alexis %>%
  filter(Equipo %in% c("Marseille", "Arsenal"))

# Obtener la última temporada del Arsenal y la temporada actual del Marsella
ultima_temporada_arsenal <- max(datos_filtrados$Temporada[datos_filtrados$Equipo == "Arsenal"])
temporada_actual_marsella <- max(datos_filtrados$Temporada[datos_filtrados$Equipo == "Marseille"])

# Filtrar los datos solo para la última temporada del Arsenal y la temporada actual del Marsella
pases_ultima_temporada_arsenal <- datos_filtrados %>%
  filter(Temporada == ultima_temporada_arsenal & Equipo == "Arsenal") %>%
  select(Pases, `Partidos jugados`)

pases_temporada_actual_marsella <- datos_filtrados %>%
  filter(Temporada == temporada_actual_marsella & Equipo == "Marseille") %>%
  select(Pases, `Partidos jugados`)

# Calcular la cantidad de pases por partido para la última temporada del Arsenal y la temporada actual del Marsella
pases_por_partido_arsenal <- pases_ultima_temporada_arsenal$Pases / pases_ultima_temporada_arsenal$`Partidos jugados`
pases_por_partido_marsella <- pases_temporada_actual_marsella$Pases / pases_temporada_actual_marsella$`Partidos jugados`

# Crear la tabla con los resultados
tabla_comparativa <- data.frame(Equipo = c("Arsenal", "Marseille"),
                                Temporada = c(ultima_temporada_arsenal, temporada_actual_marsella),
                                Pases_por_Partido = c(round(pases_por_partido_arsenal, 2), round(pases_por_partido_marsella, 2)))

# Imprimir la tabla
knitr::kable(tabla_comparativa, format = "markdown")
```

Como se puede apreciar la cantidad de pases por partido de Alexis en su última temporada en el Ársenal, en comparación a su temporada actual en el Marsella, ha disminuido considerablemente. Esto refleja claramente lo que ha comentado el mismo entrenador. Al pedirle que se quede mas cerca del área rival y baje menos a jugar al centro del campo, impacta en la cifra de cantidad de pases dados; pues la mayoría de los pases se da en la zona media de la cancha y no en el área rival.


### Cantidad de posiciones adelantadas de Alexis por partido (Arsenal vs Marsella)

```{r}
library(dplyr)

# Filtrar los datos para la última temporada del Arsenal y la temporada actual del Marsella
datos_ultima_temporada_arsenal <- Alexis %>%
  filter(Equipo == "Arsenal", Temporada == max(Temporada[Equipo == "Arsenal"])) %>%
  select(Temporada, `Posicion adelantada`, `Partidos jugados`)

datos_temporada_actual_marsella <- Alexis %>%
  filter(Equipo == "Marseille", Temporada == max(Temporada[Equipo == "Marseille"])) %>%
  select(Temporada, `Posicion adelantada`, `Partidos jugados`)

# Calcular la cantidad de posiciones adelantadas por partido para la última temporada del Arsenal y la temporada actual del Marsella
posiciones_adelantadas_arsenal <- datos_ultima_temporada_arsenal$`Posicion adelantada` / datos_ultima_temporada_arsenal$`Partidos jugados`
posiciones_adelantadas_marsella <- datos_temporada_actual_marsella$`Posicion adelantada` / datos_temporada_actual_marsella$`Partidos jugados`

# Crear la tabla comparativa
tabla_comparativa <- data.frame(Equipo = c("Arsenal", "Marseille"),
                                Posiciones_Adelantadas_Por_Partido = c(round(posiciones_adelantadas_arsenal, 2), round(posiciones_adelantadas_marsella, 2)))

knitr::kable(tabla_comparativa, format = "markdown")
```


Por otra parte, la cantidad de posiciones adelantadas del jugador por partido entre Arsenal y Marsella ha aumentado. Esto puede significar que Alexis esta mayormente preocupado de correr como un finalizador a las espaldas de los centrales; por lo que esta mas expuesto a quedar en fuera de juego (Offside)


ALEXIS, UN JUGADOR QUE RESPONDE A SUS TËCNICOS {.storyboard}
=============================================================================
### Relación entre cantidad de titularidades en una temporada y goles en una temporada


```{r}
plot_ly(data = Alexis, x = ~Titular, y = ~Goles, text = ~paste("Temporada:", Temporada),
        hoverinfo = "text", mode = "markers", type = "scatter") %>%
  layout(title = "Relación entre Goles y Partidos como titular",
         xaxis = list(title = "Partidos como titular"),
         yaxis = list(title = "Goles"),
         hoverlabel = list(bgcolor = "white", font = list(color = "black")))
```

### Un león enjaulado:

Alexis durante su ingrata estadía en el Inter de Milan, mencióno en más de una ocasión que se sentía como un león enjaulado a propósito de que su técnico no lo ponía la cantidad de minutos que el deseaba; argumentando que en la medida que lo hagan jugar el siempre ha respondido.
La gráfica recien observada confirma desde una mirada de los datos los dichos de Alexis Sanchez.
En este caso cada punto del gráfico es una temporada en específico. Como se puede apreciar existe una relación casi lineal entre la cantidad de goles marcados asi como la cantidad de partidos que arrancó como titular el jugador.